بسم الله الرحمن الرحيم 


السلام عليكم ورحمة الله وبركاته 


کیف تصنع برنامج ۴۲۲ في مہ.۷ 


)a۸ ٣٥۵ z s(حلاص کاتب الدرس :احمد زکریا‎ 
ahmedzs @live.ca : Jليميا‎ 


ما هو الاف تي بي (رابط يشرح ما هو ال ۴۲۲ من ویکیبیدیا العربی) 
الاف تي بي هو برنامج لتعامل مع الملفات التي موجودة في سيرفر موقعك (۲ 56۷٥‏ ۴۲۲) 


فكرة عمل البرنامج 
اکر ی انك ستر ل طلب آل الآ ى ور فر هدما طك و ذلك 
سيرد عليك الاف تي بي سيرفر بالاستجابه وبها المعلومات التي طلبتها او ينفذ ما طلبت 


اكواد صناعة البرنامج مع الشرح 


System.Net.WebRequest.Create - System.Net.Ftp Web Request 
خاصة بارسال طلب الي السيرفر(موقع ال اف تي بي) بالتعامل مع ملف معين مثلا لتحميل او للحذف او لانشاء ملف جديد‎ 
مثل عند الابلود‎ 
:اقتباس‎ 
Dim clsRequest As System.Net.Ftp Web Request = 
(System.Net.WebRequest.Create("'ftp://" & (("مكان الملف الذي تريد التعامل مع"‎ 


clsRequest.Credentials - System.Net.NetworkCredential 


هذه التعبير خاص ببيانات سيرفر الاف تي بي الخاص بك (اسم المستخدم والباسورد) 
:اقتباس 
clsRequest.Credentials = NewSystem.Net.NetworkCredential( ‘User‏ 
Name, Password)‏ 


clsRequest.Method - System.Net.WebRequestMethods.Ftp 
هذه الداله هي اهم دالة حيث انها هي التي ستحتوي الامر الذي تريد طلبة الي سييرفر الافتي بي‎ 


واهم الدوالات التي موجوده بها: 

لحذف ذف DeleteFile‏ 

DownloadFileفأم‎ Jınھتل‎ 

لعمل قائمة بالملفات والمجلدات الموجوده إا م10iءأا‏ 
نرفg‏ مأفUploadFile‏ 

لحذف مجد RemoveDirectory jın‏ 
لصنع مجلد جديد MakeDirectory‏ 


clsRequest.Method = System.Net.WebRequestMethods.Ftp.DeleteFile 
وبهذا الامر طلبنا حذف الملف الذي حددنا عندما ارسلنا الطلب بالاعلي‎ 


بعد ذلك نطلب من الاف تي بي سيرفر الاستجابة الي (تنفيذ) ما طلبنا 


Dim ftpWebResp As FtpWebResponse = clsRequest.GetResponse() 


فاذا اردت ان تحذف مجلد مثلا فغير اınlڎgد)ئF )System.Net.Web Request Methods.‏ منù‏ 
DeleteFile‏ الي RemoveDirectory‏ مع تغيير مسار المجلد الذي حددنا في اول الدرس مع ٥أ2مإ٥°‏ 


Delete File dJ لحذف‎ 
Remove Direcory jı لحذف جد‎ 
MakeDireciory دıدج لصنع مجلد‎ 


الي الان قد انتهينا من حذف الملف حيث اننا طلبنا شئ من السيرفر ولا نريد ان يرسل لنا السيرفر شئ مثل 
عند تحمیل ملف dھہاہ‏ سه5 او نرسل لسیرفر شئ عند رفع الملفات dھoامںل‏ 
وسنشرح هذا بالتفصيل في الدرس التالي. هذه الطريقة تكفي عند طلب مسح ملف او مجلد او صنع مجلد 
حدبد 


رفع و تحميل الملفات: 


رفع الملفات دة UploadFile‏ 


بعد ان ارسلنا الطلب الي سيرفر الاف تي بي سيرد هذا السيرفر بالستجابة في حالة طلب تحميل ملف او رفع ملف او رص 
المجلدات و الملفات 


عند طلب رفع ملف بالدالة ٠20۴هام‏ ل نكتب هذا الكود بعد الكود الطلب الذي بالاعلي مع جذف كود طلب الستجابة لاننا 
سنرفع ملف (اي اننا سنرسل لسيرفر بيانات) (ولا نحتاج اي بيانات من السيرفر مثل كود الدونلود او نأمر السيرفر بتنفيذ 
شئ معين مثل كود مسح الملفات (كود الاستجابة يستخدم في (طلب الاستجابة من السيرفر مثل ارسال بيانات ملف معين في 
السيرفر الي الزبون) او (تنفيذ شئ معين داخل السيرفر مثل كود مسح الملفات) 
:اقتبااس 
Dim Streamer As System.IO.Stream = clsRequest.GetRequestStream()‏ 
الملف الذي تريد التنزيل ي4 Dim bFile() As Byte = System.IO.File.Read۸A||yes(""‏ 
م 
("الذي تريد التنزيل به 
Streamer.Write(bFile, 0, bFile.Length‏ 
Streamer.Close()‏ 
Streamer.Dispose()‏ 


تحمیل الملفات اأدlذة DownloadFile‏ 


عند طلب تنزيل ملف نستخدم الدالة ١۴١2هام‏ سه و نكتب هذا الكود بعد الكود الطلب الذي بالاعلي(في هذه الدالة 
نحتاج البيانات من السيرض) 
:اقتباس 
Dim streamer As Stream = ftpWebResp.GetResponseStream()‏ 
Using fs As New |O.FiIleSrea('فlalاl Jيjنت ناكمC:\file.txt", File Mode.Create)‏ 
Dim buffer(2047) As Byte‏ 
Dim read As Integer = 0‏ 


)6ر†هs(تانايبلا الكود التالي سيظل يعمل م٥٥ ]1 حتي يتم تجميع و تنزيل كل‎ 
:اقتباس‎ 
Do 
read = streamer.Read(buffer, 0, buffer.Length) 
fs.Write(buffer, 0, read) 
Loop Until read = 0 
fs.Flush() 
fs.Close() 
streamer.Close() 
End Using 


عمل قائمة بالملفات و المجلدات الموجودة الداله إاتا م0 1ءأ] او 
ListDirectoryDetails‏ 


عند طلب تجميع قائمة بالملفات والمجلدات الموجودة في السيرفر نستخدم الدالة رام موأ ونكتب هذا الكود بعد 
الكود الذي بالاعلي(في هذه الدالة نحتاج البيانات من السيرفر مثل الدونلود) 


Dim ftpWebResp As FtpWebResponse = clsRequest.GetResponse() 
Dim streamer As Stream = ftpWebResp.GetResponseSiream() 

Dim reader As New StreamReader(streamer) 

Dim LineRead As String 


الكود التالي سيظل يعمل مه |٠‏ حتي يتم تجميع كل الملفات والمجلدات في 1سءأ۷ءاا 
:اقتباس 


Do Until reader.EndOfStream 
LineRead = reader.ReadLine 
ListView1.ltems.Add(LineRead) 
Loop 

streamer.Close() 


هذا مثال من صنعي لبرنامج ۴۲٣‏ (بسیط وسھل) 


http ://www.mediafire.com/download.php?joinlt3yozi 


تم بحمد الله 


لا تنسونا من صالح دعائكم 
تحياتي 


3 


